home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1459.dms / var1459.adf / LowLevelGraphics / Example1.c < prev    next >
C/C++ Source or Header  |  1992-04-28  |  6KB  |  199 lines
  1. /***********************************************************/
  2. /*                                                         */
  3. /* Amiga C Encyclopedia (ACE) V3.0      Amiga C Club (ACC) */
  4. /* -------------------------------      ------------------ */
  5. /*                                                         */
  6. /* Book:    ACM Graphics                Amiga C Club       */
  7. /* Chapter: LowLevelGraphics            Tulevagen 22       */
  8. /* File:    Example1.c                  181 41  LIDINGO    */
  9. /* Author:  Anders Bjerin               SWEDEN             */
  10. /* Date:    92-04-28                                       */
  11. /* Version: 1.00                                           */
  12. /*                                                         */
  13. /*   Copyright 1992, Anders Bjerin - Amiga C Club (ACC)    */
  14. /*                                                         */
  15. /* Registered members may use this program freely in their */
  16. /*     own commercial/noncommercial programs/articles.     */
  17. /*                                                         */
  18. /***********************************************************/
  19.  
  20. /* This example shows how to create your own display, and fill it with */
  21. /* a lot of pixels in seven different colours.                         */
  22.  
  23.  
  24. #include <intuition/intuition.h>
  25. #include <graphics/gfxbase.h>
  26.  
  27.  
  28. #define WIDTH  640 /* 640 pixels wide (high resolution)                */
  29. #define HEIGHT 200 /* 200 lines high (non interlaced NTSC display)     */ 
  30. #define DEPTH    3 /* 3 BitPlanes should be used, gives eight colours. */
  31. #define COLOURS  8 /* 2^3 = 8                                          */
  32.  
  33.  
  34. struct IntuitionBase *IntuitionBase;
  35. struct GfxBase *GfxBase;
  36.  
  37.  
  38. struct View my_view;
  39. struct View *my_old_view;
  40. struct ViewPort my_view_port;
  41. struct RasInfo my_ras_info;
  42. struct BitMap my_bit_map;
  43. struct RastPort my_rast_port;
  44.  
  45.  
  46. UWORD my_color_table[] =
  47. {
  48.   0x000, /* Colour 0, Black       */
  49.   0x800, /* Colour 1, Red         */
  50.   0xF00, /* Colour 2, Light red   */
  51.   0x080, /* Colour 3, Green       */
  52.   0x0F0, /* Colour 4, Light green */
  53.   0x008, /* Colour 5, Blue        */
  54.   0x00F, /* Colour 6, Light Blue  */
  55.   0xFFF, /* Colour 7, White       */
  56. };
  57.  
  58.  
  59. void clean_up();
  60. void main();
  61.  
  62.  
  63. void main()
  64. {
  65.   UWORD *pointer;
  66.   int loop;
  67.   
  68.  
  69.   /* Open the Intuition library: */
  70.   IntuitionBase = (struct IntuitionBase *)
  71.     OpenLibrary( "intuition.library", 0 );
  72.   if( !IntuitionBase )
  73.     clean_up( "Could NOT open the Intuition library!" );
  74.  
  75.   /* Open the Graphics library: */
  76.   GfxBase = (struct GfxBase *)
  77.     OpenLibrary( "graphics.library", 0 );
  78.   if( !GfxBase )
  79.     clean_up( "Could NOT open the Graphics library!" );
  80.  
  81.  
  82.   /* Save the current View, so we can restore it later: */
  83.   my_old_view = GfxBase->ActiView;
  84.  
  85.  
  86.   /* 1. Prepare the View structure, and give it a pointer to */
  87.   /*    the first ViewPort:                                  */
  88.   InitView( &my_view );
  89.   my_view.ViewPort = &my_view_port;
  90.  
  91.  
  92.   /* 2. Prepare the ViewPort structure, and set some important values: */
  93.   InitVPort( &my_view_port );
  94.   my_view_port.DWidth = WIDTH;         /* Set the width.                */
  95.   my_view_port.DHeight = HEIGHT;       /* Set the height.               */
  96.   my_view_port.RasInfo = &my_ras_info; /* Give it a pointer to RasInfo. */
  97.   my_view_port.Modes = HIRES;          /* High resolution.              */
  98.  
  99.  
  100.   /* 3. Get a colour map, link it to the ViewPort, and prepare it: */
  101.   my_view_port.ColorMap = (struct ColorMap *) GetColorMap( COLOURS );
  102.   if( my_view_port.ColorMap == NULL )
  103.     clean_up( "Could NOT get a ColorMap!" );
  104.  
  105.   /* Get a pointer to the colour map: */
  106.   pointer = (UWORD *) my_view_port.ColorMap->ColorTable;
  107.  
  108.   /* Set the colours: */
  109.   for( loop = 0; loop < COLOURS; loop++ )
  110.     *pointer++ = my_color_table[ loop ];
  111.  
  112.  
  113.   /* 4. Prepare the BitMap: */
  114.   InitBitMap( &my_bit_map, DEPTH, WIDTH, HEIGHT );
  115.  
  116.   /* Allocate memory for the Raster: */ 
  117.   for( loop = 0; loop < DEPTH; loop++ )
  118.   {
  119.     my_bit_map.Planes[ loop ] = (PLANEPTR) AllocRaster( WIDTH, HEIGHT );
  120.     if( my_bit_map.Planes[ loop ] == NULL )
  121.       clean_up( "Could NOT allocate enough memory for the raster!" );
  122.  
  123.     /* Clear the display memory with help of the Blitter: */
  124.     BltClear( my_bit_map.Planes[ loop ], RASSIZE( WIDTH, HEIGHT ), 0 );
  125.   }
  126.  
  127.   
  128.   /* 5. Prepare the RasInfo structure: */
  129.   my_ras_info.BitMap = &my_bit_map; /* Pointer to the BitMap structure.  */
  130.   my_ras_info.RxOffset = 0;         /* The top left corner of the Raster */
  131.   my_ras_info.RyOffset = 0;         /* should be at the top left corner  */
  132.                                     /* of the display.                   */
  133.   my_ras_info.Next = NULL;          /* Single playfield - only one       */
  134.                                     /* RasInfo structure is necessary.   */
  135.  
  136.   /* 6. Create the display: */
  137.   MakeVPort( &my_view, &my_view_port );
  138.   MrgCop( &my_view );
  139.  
  140.  
  141.   /* 7. Prepare the RastPort, and give it a pointer to the BitMap. */
  142.   InitRastPort( &my_rast_port );
  143.   my_rast_port.BitMap = &my_bit_map;
  144.   
  145.  
  146.   /* 8. Show the new View: */
  147.   LoadView( &my_view );
  148.  
  149.  
  150.   /* Set the draw mode to JAM1. FgPen's colour will be used. */
  151.   SetDrMd( &my_rast_port, JAM1 );
  152.   /* Draw 10000 pixels in seven different colours, randomly. */ 
  153.   for( loop = 0; loop < 10000; loop++ )
  154.   {
  155.     /* Set FgPen's colour (1-7, 0 used for the the background). */
  156.     SetAPen( &my_rast_port, rand() % (COLOURS-1) + 1 );
  157.     /* Write a pixel somewere on the display: */
  158.     WritePixel( &my_rast_port, rand() % WIDTH, rand() % HEIGHT );
  159.   }
  160.  
  161.  
  162.   /* 9. Restore the old View: */
  163.   LoadView( my_old_view );
  164.  
  165.  
  166.   /* Free all allocated resources and leave. */
  167.   clean_up( "THE END" );
  168. }
  169.  
  170.  
  171. /* Returns all allocated resources: */
  172. void clean_up( message )
  173. STRPTR message;
  174. {
  175.   int loop;
  176.  
  177.   /* Free automatically allocated display structures: */
  178.   FreeVPortCopLists( &my_view_port );
  179.   FreeCprList( my_view.LOFCprList );
  180.   
  181.   /* Deallocate the display memory, BitPlane for BitPlane: */
  182.   for( loop = 0; loop < DEPTH; loop++ )
  183.     if( my_bit_map.Planes[ loop ] )
  184.       FreeRaster( my_bit_map.Planes[ loop ], WIDTH, HEIGHT );
  185.  
  186.   /* Deallocate the ColorMap: */
  187.   if( my_view_port.ColorMap ) FreeColorMap( my_view_port.ColorMap );
  188.  
  189.   /* Close the Graphics library: */
  190.   if( GfxBase ) CloseLibrary( GfxBase );
  191.  
  192.   /* Close the Intuition library: */
  193.   if( IntuitionBase ) CloseLibrary( IntuitionBase );
  194.  
  195.   /* Print the message and leave: */
  196.   printf( "%s\n", message ); 
  197.   exit();
  198. }
  199.